home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01484_ÉXÉvÉâÉCÉgâ¬éãÅEïsâ¬éã_ä÷òA.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  1.6 KB  |  76 lines

  1. global nmaxpage, nminipage, syearstr, snextmovie, spastmovie, nnextfn, lmaxpagelist, lyearlist, presp, memframelabel
  2.  
  3. on mvisiblechk ptvf, ptvt, torf
  4.   repeat with tmpsp = ptvf to ptvt
  5.     set the visible of sprite tmpsp to torf
  6.   end repeat
  7. end
  8.  
  9. on mvisiblerep ptvrf, ptvrt
  10.   repeat with tmpsp = ptvrf to ptvrt
  11.     if rollOver(tmpsp) then
  12.       set the visible of sprite presp to 0
  13.       set the visible of sprite tmpsp to 1
  14.       set presp to tmpsp
  15.       next repeat
  16.     end if
  17.     set the visible of sprite tmpsp to 0
  18.   end repeat
  19. end
  20.  
  21. on mvisiblerepx ptvrf, ptvrt
  22.   repeat with tmpsp = ptvrf to ptvrt
  23.     if rollOver(tmpsp) then
  24.       set the visible of sprite presp to 0
  25.       set the visible of sprite tmpsp to 1
  26.       set presp to tmpsp
  27.       exit repeat
  28.       next repeat
  29.     end if
  30.     set the visible of sprite tmpsp to 0
  31.   end repeat
  32. end
  33.  
  34. on mvisiblechkz spf, spt, ro
  35.   if rollOver(ro) or rollOver(10) then
  36.     cursor(280)
  37.   else
  38.     set tmpflg to 0
  39.     repeat with tmpsp = spf to spt
  40.       if the visible of sprite tmpsp then
  41.         set tmpflg to 1
  42.         exit repeat
  43.         next repeat
  44.       end if
  45.     end repeat
  46.     if tmpflg = 0 then
  47.       cursor(-1)
  48.       mvisiblechk(3, 4, 0)
  49.       go("NUTE")
  50.     else
  51.       cursor(280)
  52.     end if
  53.   end if
  54. end
  55.  
  56. on mvisiblechkyc spf, spt, ro
  57.   if rollOver(ro) or rollOver(10) then
  58.     cursor(280)
  59.   else
  60.     set tmpflg to 0
  61.     repeat with tmpsp = spf to spt
  62.       if the visible of sprite tmpsp then
  63.         set tmpflg to 1
  64.         exit repeat
  65.         next repeat
  66.       end if
  67.     end repeat
  68.     if tmpflg = 0 then
  69.       cursor(-1)
  70.       go("6KI")
  71.     else
  72.       cursor(280)
  73.     end if
  74.   end if
  75. end
  76.